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Probletn 

The RANDOM FII£ sanple in the manual has serveral lines that need to be 
changed so that it will work properly. 


Solution 

When typing in the program the following line changes should be made. 
Old Line; 320 PQRI=1T0MD+1:OTEN"I",1 ''£R0DAr:"-K21R$(47+l) :NE3Cri 
New Line: 32/J C»EN"R",l,"ER0DAr;"4CHR$(47+l),RL 
Old Line: 34J0 r>=D$IN(J) 

New Line: 34J0 D=DH1I(J) 

Old Line: 39jEl IM^l;PO(a=lTOMDfl:IPN>D(I)THEa©N=I+l 
New Line: 390 DR=l:PC»I=lTOMDtl;IFN>D(I)THEM)R=I+l 
Old Line; 400 NE3Cr:N»=N-D(DN-l):<S!TDN,NN 
New Line: 400 NEXT:NN=N-D(DR-1) :uCiTuR,NN 
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Old Line: 410 IFASC(R$(1,E*J) )=192THENPRINr"**DEa£TE**":QarO460 
New Line: 410 IFi^(R$(l,I»))=192TEffiNPRINr"**I]Er£TE**":QOTO460 
Old Line: 440 PRINr@aJ(I)-15374,NMS(I);":";R$(I,DN); 

New Line: 440 PRINr@aj(I)-15374,NM$(I);":";R$(I,I»); 

**** The remainder of the program should be left eis is. 


On page 30 of the manual, there is a sample of "USING SaEJQUENIIAL ACCESS" 
The nfollowing lines should be changed: 

Old Line: 330 DN=l:PaU=lTC»JR:IPJ>D(DN)THENDN=DN+l 

^EW LINE: 330 m=l:POfU=lTONR:IFJ>D(DR)THEN[«=^+l 

Old Line: 340 LINBINFUT#DN R$:IFI£N(R$)=0THEN340 

New Line: 340 LINEINPUT#CR,R$:IFI£N(R$)=0raEN340 

Old Line: 360 DYI=VAL(MID$(R$,32,6)) :PD!:^WAL(MID$(R$,32,6)) 

New Line: 360 DY1=VAL(MID$(R$,52,6)):PD1=^WAL(MID$(R$,58,6)) 

*** The remainder of the program should be left as is. 








